home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g02.bas < prev    next >
BASIC Source File  |  1991-10-18  |  1KB  |  44 lines
  1. 100 ' G02 T.WAKAMATSU 
  2. 110 CLS:CD PLAY
  3. 120 FOR D=1 TO 2000:NEXT D
  4. 130 C(1)=3:C(2)=6:C(3)=2
  5. 140 B(1)=2:B(2)=4:B(3)=3
  6. 150 A0$="FM TOWNS GRAPHICS"
  7. 160 N=LEN(A0$)
  8. 170 FOR I=1 TO N
  9. 180   SYMBOL@(52+32*(I-1),3),MID$(A0$,I,1),4,2,5
  10. 190   SYMBOL@(50+32*(I-1),1),MID$(A0$,I,1),4,2,4
  11. 200   FOR D=1 TO 200:NEXT D
  12. 210 NEXT I
  13. 220 A1$="PROGRAMMED BY TOSHIKI WAKAMATSU '91"
  14. 230 N1=LEN(A1$)
  15. 240 FOR I=1 TO N1
  16. 250   SYMBOL@(52+16*(I-1),450),MID$(A1$,I,1),1,1,4
  17. 260   SYMBOL@(51+16*(I-1),449),MID$(A1$,I,1),1,1,5
  18. 270   FOR D=1 TO 160:NEXT D
  19. 280 NEXT I
  20. 290 FOR X=0 TO 200 STEP 4
  21. 300   CIRCLE(X+100,X+140),80,1
  22. 310 NEXT X
  23. 320 FOR X=0 TO 200 STEP 4
  24. 330   CIRCLE(X+250,X+140),80,5
  25. 340 NEXT X
  26. 350 FOR X=200 TO 0 STEP -4
  27. 360   CIRCLE(X+200,340-X),80,3
  28. 370 NEXT X
  29. 380 FOR X=200 TO 0 STEP -4
  30. 390   CIRCLE(X+350,340-X),80,2
  31. 400 NEXT X
  32. 410 FOR J=1 TO 3
  33. 420   FOR I=1 TO N
  34. 430     SYMBOL@(52+32*(I-1),3),MID$(A0$,I,1),4,2,B(J)
  35. 440     SYMBOL@(50+32*(I-1),1),MID$(A0$,I,1),4,2,C(J)
  36. 450     FOR D=1 TO 200:NEXT D
  37. 460   NEXT I
  38. 470 NEXT J
  39. 480 FOR I=1 TO N1
  40. 490   SYMBOL@(52+16*(I-1),450),MID$(A1$,I,1),1,1,1
  41. 500   SYMBOL@(51+16*(I-1),449),MID$(A1$,I,1),1,1,5
  42. 510   FOR D=1 TO 160:NEXT D
  43. 520 NEXT I
  44.